;:sys36864
	;.opt oo
	*= $c000
nlen	=$b7
gn	=$ba
fn	=$b8
sa	=$b9
get	=$e124
	lda #<neubef
	ldy #>neubef
	sta $308
	sty $309
	lda #<hi
	ldy #>hi
	jmp $ab1e
neubef	jsr $73
	cmp #$9b
	beq list
	jsr $79
	jmp $a7e7
list	jsr $73
	cmp #34
	bne altlist
	jsr neul
	jsr $73
	jmp $a7ae
altlist	jsr $79
	jsr $a69c
	jmp $a7ae
hex	pha
	lsr
	lsr
	lsr
	lsr
	jsr hex1
	pla
hex1	and #15
	tax
	lda hex2,x
	jmp $ab47
neul	jsr neulist
	jsr $79
	jmp $a7ae
neulist	lda #123
	jsr $e1cc
	jsr $e1d4
	lda gn
	cmp #4
	bcc notest
	lda nlen
	bne notest
	ldx #8
	.byt $2c
notfound	ldx #4
	jmp $a437
notest	lda #0
	sta sa
	lda #123
	sta fn
	jsr $e1c1
	ldx #123
	jsr $e11e
	lda 144
	bne notfound
	jsr get
	ldx 144
	bne notfound
	nop
	pha
	lda #<l1
	ldy #>l1
	jsr $ab1e
	lda #34
	jsr $ab47
	jsr $f5c1
	lda #34
	jsr $ab47
	lda #<l2
	ldy #>l2
	jsr $ab1e
	jsr get
	jsr hex
	pla
	jsr hex
	jsr $aad7
	jsr $aad7
zeile	jsr get
	jsr get
	tax
	beq ende
	jsr get
	pha
	jsr get
	tay
	pla
	tax
	tya
	jsr $bdcd
	jsr $ab3f
	lda #0
	sta $f
zeichen	jsr get
	tax
	beq zende
	bmi token
	cmp #34
	bne nodv
	lda $f
	eor #-1
	sta $f
	lda #34
nodv	jsr $ab47
spr	lda 653
	and #1
	bne spr
	beq zeichen
token	ldx $f
	bmi nodv
	cmp #-1
	beq nodv
	sbc #$7e
	tax
	sty $49
	ldy #-1
tok1	dex
	beq tok3
tok2	iny
	lda $a09e,y
	bpl tok2
	bmi tok1
tok3	iny
	lda $a09e,y
	bmi tok4
	jsr $ab47
	jmp tok3
tok4	ldy $49
	and #127
	bpl nodv
zende	jsr $aad7
	jsr $a82c
	jmp zeile
ende	jsr $ffcc
	lda #123
	jmp $e1cc
hi	.byte "\x11phantom list v1.0 installed"
	.byt 13
	.byte "\x11nikolaus heusler   (c) nh-210490-a\x10}r"
	.byt 13,0
l1	.byt 13
	.byte "list of "
	brk
l2	.byte " ..... $"
	brk
hex2	.byte "0123456789abcdef"